unit ActiveFrm;

interface

uses
  ComObj, ActiveX, AspTlb, MyActiveApp_TLB, StdVcl;

type
  TActiveObject = class(TASPMTSObject, IActiveObject)

  protected
    function XYZ: WideString; safecall;
  end;

implementation

uses ComServ;

function TActiveObject.XYZ: WideString;
begin
   result:='Hello Active Server Page';
end;

initialization
  TAutoObjectFactory.Create(ComServer, 
                                                       TActiveObject, 
                                                       Class_ActiveObject,
                                                       ciMultiInstance, 
                                                       tmApartment);
end.
